home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / kcl.lha / attport / sys_kcn.c < prev   
C/C++ Source or Header  |  1986-03-11  |  3KB  |  83 lines
  1. #include "../h/include.h"
  2.  
  3. static object fasl_data;
  4.  
  5. init_init()
  6. {
  7.     enter_mark_origin(&fasl_data);
  8.     fasl_data = Cnil;
  9.  
  10.     load("../lsp/export.lsp");
  11.     fasl_data = read_fasl_data("../lsp/defmacro.o");
  12.     init_defmacro(NULL, 0, fasl_data);
  13.     fasl_data = read_fasl_data("../lsp/evalmacros.o");
  14.     init_evalmacros(NULL, 0, fasl_data);
  15.     fasl_data = read_fasl_data("../lsp/top.o");
  16.     init_top(NULL, 0, fasl_data);
  17.     fasl_data = read_fasl_data("../lsp/module.o");
  18.     init_module(NULL, 0, fasl_data);
  19.     load("../lsp/autoload.lsp");
  20. }
  21.  
  22. init_system()
  23. {
  24.     printf("Initializing predlib...  ");  fflush(stdout);
  25.     fasl_data = read_fasl_data("../lsp/predlib.o");
  26.     init_predlib(NULL, 0, fasl_data);
  27.     printf("\n");  fflush(stdout);
  28.     printf("Initializing setf...  ");  fflush(stdout);
  29.     fasl_data = read_fasl_data("../lsp/setf.o");
  30.     init_setf(NULL, 0, fasl_data);
  31.     printf("\n");  fflush(stdout);
  32.     printf("Initializing arraylib...  ");  fflush(stdout);
  33.     fasl_data = read_fasl_data("../lsp/arraylib.o");
  34.     init_arraylib(NULL, 0, fasl_data);
  35.     printf("\n");  fflush(stdout);
  36.     printf("Initializing assert...  ");  fflush(stdout);
  37.     fasl_data = read_fasl_data("../lsp/assert.o");
  38.     init_assert(NULL, 0, fasl_data);
  39.     printf("\n");  fflush(stdout);
  40.     printf("Initializing defstruct...  ");  fflush(stdout);
  41.     fasl_data = read_fasl_data("../lsp/defstruct.o");
  42.     init_defstruct(NULL, 0, fasl_data);
  43.     printf("\n");  fflush(stdout);
  44.     printf("Initializing describe...  ");  fflush(stdout);
  45.     fasl_data = read_fasl_data("../lsp/describe.o");
  46.     init_describe(NULL, 0, fasl_data);
  47.     printf("\n");  fflush(stdout);
  48.     printf("Initializing iolib...  ");  fflush(stdout);
  49.     fasl_data = read_fasl_data("../lsp/iolib.o");
  50.     init_iolib(NULL, 0, fasl_data);
  51.     printf("\n");  fflush(stdout);
  52.     printf("Initializing listlib...  ");  fflush(stdout);
  53.     fasl_data = read_fasl_data("../lsp/listlib.o");
  54.     init_listlib(NULL, 0, fasl_data);
  55.     printf("\n");  fflush(stdout);
  56.     printf("Initializing mislib...  ");  fflush(stdout);
  57.     fasl_data = read_fasl_data("../lsp/mislib.o");
  58.     init_mislib(NULL, 0, fasl_data);
  59.     printf("\n");  fflush(stdout);
  60.     printf("Initializing numlib...  ");  fflush(stdout);
  61.     fasl_data = read_fasl_data("../lsp/numlib.o");
  62.     init_numlib(NULL, 0, fasl_data);
  63.     printf("\n");  fflush(stdout);
  64.     printf("Initializing packlib...  ");  fflush(stdout);
  65.     fasl_data = read_fasl_data("../lsp/packlib.o");
  66.     init_packlib(NULL, 0, fasl_data);
  67.     printf("\n");  fflush(stdout);
  68.     printf("Initializing seq...  ");  fflush(stdout);
  69.     fasl_data = read_fasl_data("../lsp/seq.o");
  70.     init_seq(NULL, 0, fasl_data);
  71.     printf("\n");  fflush(stdout);
  72.     printf("Initializing seqlib...  ");  fflush(stdout);
  73.     fasl_data = read_fasl_data("../lsp/seqlib.o");
  74.     init_seqlib(NULL, 0, fasl_data);
  75.     printf("\n");  fflush(stdout);
  76.     printf("Initializing trace...  ");  fflush(stdout);
  77.     fasl_data = read_fasl_data("../lsp/trace.o");
  78.     init_trace(NULL, 0, fasl_data);
  79.     printf("\n");  fflush(stdout);
  80.  
  81.     Vpackage->s.s_dbind = user_package;
  82. }
  83.